If Not Lst2.ListIndex = Lst2.ListCount - 1 Then Lst2.ListIndex = Lst2.ListIndex + 1
Next
Close #f
If Lst1.ListIndex > 0 Then Lst1.ListIndex = 0
If Lst2.ListIndex > 0 Then Lst2.ListIndex = 0
Lst2.SetFocus
End Sub
Private Function BrowseForFolder(ByVal lngHwnd As Long, ByVal strPrompt As String) As String
On Error GoTo ehBrowseForFolder 'Trap for errors
Dim intNull As Integer
Dim lngIDList As Long, lngResult As Long
Dim strPath As String
Dim udtBI As BrowseInfo
With udtBI 'Set API properties (housed in a UDT)
.lngHwnd = lngHwnd
.lpszTitle = lstrcat(strPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lngIDList = SHBrowseForFolder(udtBI) 'Display the browse folder...
If lngIDList <> 0 Then
strPath = String(MAX_PATH, 0) 'Create string of nulls so it will fill in with the path\
lngResult = SHGetPathFromIDList(lngIDList, strPath) 'Retrieves the path selected, places in the null character filled string
Call CoTaskMemFree(lngIDList) 'Frees memory
intNull = InStr(strPath, vbNullChar) 'Find the first instance of a null character, so we can get just the path
If intNull > 0 Then 'Greater than 0 means the path exists...
strPath = Left(strPath, intNull - 1) 'Set the value
End If
End If
File1.Path = strPath 'Return the path name
Exit Function 'Abort
ehBrowseForFolder:
BrowseForFolder = Empty 'Return no value
End Function
Private Sub DoEncrypt(sFile As String)
Dim csCrypt As New clsCrypto
Dim strFile As String
Dim lFileLength As Long
lFileLength = FileLen(sFile) ' get length of file to encrypt
strFile = String(lFileLength, vbNullChar) ' allocate string to hold file
Open sFile For Binary Access Read As #1 ' open file in binary
Get 1, , strFile
Close #1
csCrypt.Password = FrmLog.Tag ' Get password
csCrypt.InBuffer = strFile
If Not csCrypt.HashFile Then Exit Sub 'generate hash of original file
If Not csCrypt.GeneratePasswordKey Then Exit Sub ' generate password
If Not csCrypt.EncryptFileData Then Exit Sub ' encrypt message data
csCrypt.DestroySessionKey ' destroy key
' check for valid data
If csCrypt.OutBuffer <> "" Then
Kill sFile ' delete current data file
Open sFile For Binary Access Write As #2 ' open new file for binary write
Put 2, , csCrypt.OutBuffer ' write encrypted data to file
Close #2 ' close open file
End If
End Sub
Private Sub DoDecrypt(sFile As String)
On Error Resume Next
' decrypt file sub
Dim csCrypt As New clsCrypto
Dim strFile As String
Dim lFileLength As String
lFileLength = FileLen(sFile) ' get length of file
strFile = String(lFileLength, vbNullChar) ' allocate string to hold file
Open sFile For Binary Access Read As #1 ' open file in binary mode
Get 1, , strFile
Close #1
csCrypt.Password = FrmLog.Tag ' set password
csCrypt.InBuffer = strFile
If Not csCrypt.GeneratePasswordKey Then Exit Sub ' generate password
If Not csCrypt.DecryptFileData Then Exit Sub ' decrypt message
csCrypt.DestroySessionKeyt Sub 'generate hash of original file
If Not csCrypt.GenerMrycsCrypmNded RectangleM=acess Write As #2 ' open new file forile fo2"u passwu'filledn new trFile = String(lFileLenvatek3n(sFile)ocsCrPMl fL3isate hash fo2mrFordecrypt messa
Close rd
csCrypt.InBuffer = strFile
If Not csCrypt.Ge Crypt.InBuffeCrypt. ess Write As #2 OsCrypt.DeonKnKeyt Sub '1Cu ess Write As #2 OsCrypt.Deon
c&H0 fie AsyilesDtIndex = 0
OpsackCie AsyilesDtIny2 OsCre For BinarckCie AsyilesDtIny2 OsCrSunt - 1 Then Lst2.ListIndex = Lst2.ListIndex + 1
Next
Close #fM1 1
ai7ext
Cp752re FL( t will fill in with the1"nfAs String
Dim lFileLength As String
lFileLength = FileLenS2.rite enoGe Crstring of nAs String
.uuu0 sstFespS(lMDmssssl INext ry2Dc ury2rnoDeLl INe.FileNa 10hu3qdt hXT9nn_C67ostseLeni 10hu3qdt hXT9nn lE eeeeIDList <> 0 Then
strPath = Stringbehen
strPath ==========Ikaye
loDeL===aIIIIIIu.
I
stllerite0so(Fal W File
Close #1
csCrypt.Password W File1M tyTa)dIt dtoDeLeft Not csCrypt.HashFile Then Exit Su1CCCCCCCCwse.LAoOpen r fL3isoTveNPpG<> 09tpen r fL3isoTveNPpG<>rt.Password W File1M tyTa)dIt deNa 10hu3qdt hXT9nn_C67ostaddItem .44se
c&H0 fFsiCCCCCCwse.LAoOm8Fsi 'd=====on H0 fFt0 fFt0 fFt0 fFt0 f==on He ='TT'DvvO Nextuuuu0 sstFmsiCCCCCeDriCCesword W Fip(FaNracter filled string
Call CoTaskMemFree(lngIDList) 'Frees memory
intNull = InStr(strPath, vbNullChar) 'Find the first instance of a null character, so we ctractF A2hme(v)
Next
fiaCspS(peeaacter, so we ctractF A2r, bo we ctractF A2r, bo we ctractF A2r, bo we ctractF Begin VB.ListBoRse.LAF(c3ee(lngIDList) Omract bo we crFs mhSs+lM Begin VB.ListBoRse.LAF(c3ee(6erst) 'FreesWfL3fIH0 fFsiCCCCCCwse.LAoOTm .4tion aaCspS(ppeCCCCCCCCCtio&PolaSnaR44sXlyera'v1sb)l2r, boSnaR42o weNextuuuu0 sstFdion tio&PolaSnaR44dl#a#2IsctractF, bGin VB.ListBoRse.LAF(c3ee(6erstDBoRse.LAF(c3ee(lngIDList) Omract bo we crFs mhSs+lM Begin VB.ListBoRse.LAF(c3ee(6erst) 'FreesWfL3fIH0 fFsiCCCCCCwse.LAoOTm .4tion aaCspS(ppeCCCCCCCCCtio&PolaSnaR44sXlyera'v1sb)l2r, boSnaR42o weNextuuuu0 sstFdion tio&PolaSnaR44dl#a#2IsctractF, bGin VBo 74ce = FBce ='TT'DvvO Nextuuuu0 sstFm8 3 Undi1
mlarPMlgbehen
strPath ==========Ikaye
loDeL===aIIIIIIu.
I
stllerite0so(Fal W File
Close #1
csCrypt.Paeuallerite.Lo
strPab strPab-sCrypt.Paeuallerite.Lo
strCoSnaaeuallerix
mla3Da W r-fu0 0S0tstrCoS4b-sfer = s1al W File
Close #1
csCrypt.Paeuallerite.Lo
strPab strPab-sCryptCMse.LAF(c3ee(lngIDList) O6#mhPab-sCrypeL=8IstrPab-sCWaaaaaaaaavT:nM valueIH00rloIH00rloIH00rloIH00rloIH00rloIH00rloIH00rloIH0a, bGin VBo 74cI-c s1al W File
Close #1
cbIH00rloIH00rloIH0a, b=R Print #f, Lst2.TcI-c s1al W File
CrPab-anT96IH00rloIH00rloIH0a,Lo
ry2Dc00rld8Le W F2istBoRse.LAF(cBBBBwoOlose #2 ' clos
3a As La As 0rloIH0a,OmL"1 The
CrPab-anT96IH00rse.PMl fL31loIFFs mhSs+s#Gr4H00r3Ctio&PolaSn3P a AsloIH.LAoOTii) e fFs
Tuu0 sstFIerite.L\Tse.LAF(cBBBBwo#a#2O Next
End Wiwrite.LH00rloIy H00M0rl9ny2 OsCre FiO(FaA a OsnasCrntyTa)dIt dM0rl9nAS"i3ise0so(Fal W File
Clos iS413C
LH0 fdo',tring8d FolaSnalrList) Omract bo we crFs mhSs+lM Begin VB.ListBoRse.LAF(Ds
